:login knuth
[Home dir=USERS5]
   SATURDAY, JULY 19, 1980  08:50:52 AM
Welcome to ITS 


To see system messages, do ":MSGS<CR>"
:a

This is MACSYMA 290

FIX290 4 DSK MACSYM being loaded 
Loading done

(C1) fpprec(50);

FLOAT FASL DSK MACSYM being loaded 
Loading done
(D1)                                  50

(C2) bfoOloat(log(log(2));
Missing ")"
BFLOAT ( LOG ( LOG ( 2 ) ) **$**   
Please rephrase or edit

(C2) bfloat(log(log(2)));
(D2)       - 3.665129205816643270124391582326694694542634478371B-1

(C3) s:%;
(D3)       - 3.665129205816643270124391582326694694542634478371B-1

(C4) for n:2 thru 25 do print(s:s+bfloat(log(2))↑n/(n*factorial(n)));
- 2.4639966710211397084566352665100322652162520993846B-1 
- 2.2789829754717344419461610539479597406850707186354B-1 
- 2.2549376527026632490412133750138125769852461048272B-1 
- 2.2522709410733775603565309306162133420390896545755B-1 
- 2.2520142155668212001906236456606676362397308050605B-1 
- 2.251992425947101114704509323604936193899488498573B-1 
- 2.2519907740112523466658232731351576578543940300377B-1 
- 2.251990660921407799558048523246184349580735641737B-1 
- 2.251990653866496178756925193370792168029997382799B-1 
- 2.2519906534623563358595786935893004808583508325265B-1 
- 2.2519906534409576391983385226376381455318250871054B-1 
- 2.2519906534399044477480382050314156875321839278295B-1 
- 2.2519906534398560282740751868483196225013697517841B-1 
- 2.2519906534398539399829371278959051992050757697332B-1 
- 2.2519906534398538551688874481762352422490368550864B-1 
- 2.2519906534398538519141541937890340401987156225653B-1 
- 2.251990653439853851795783341817416373753137929349B-1 
- 2.2519906534398538517916922847495967124799331940022B-1 
- 2.2519906534398538517915575887776734333090845509446B-1 
- 2.2519906534398538517915533545766225760523361468399B-1 
- 2.251990653439853851791553227234856198285874534783B-1 
- 2.2519906534398538517915532235640340823879815829788B-1 
- 2.2519906534398538517915532234624339782224442605158B-1 
- 2.2519906534398538517915532234597297033137618048353B-1 
(D4)                                 DONE

(C5) for n:26 thru 35 do print(s:s+bfloat(log(2))↑n/(n*factorial(n)));
- 2.2519906534398538517915532234596603815486578015912B-1 
- 2.2519906534398538517915532234596586678246017450137B-1 
- 2.2519906534398538517915532234596586269160546298849B-1 
- 2.2519906534398538517915532234596586259719903794421B-1 
- 2.2519906534398538517915532234596586259509049475195B-1 
- 2.2519906534398538517915532234596586259504486944179B-1 
- 2.2519906534398538517915532234596586259504391204266B-1 
- 2.2519906534398538517915532234596586259504389254239B-1 
- 2.2519906534398538517915532234596586259504389215653B-1 
- 2.2519906534398538517915532234596586259504389214911B-1 
(D5)                                 DONE

(C6) %++%.5772156649015328606065120900824024310422b0;
(D6)             5.772156649015328606065120900824024310422B-1

(C7) s+%;
(D7)        3.5201659955754747542735676773643656844715610785089B-1

(C8) d6-10↑(-40)+.5933593992b-40;
(D8)        5.7721566490153286060651209008240243104215933593992B-1

(C9) s+%;
(D9)        3.5201659955754747542735676773643656844711544379081B-1

(C10) logout();
:LOGOUT

MC ITS 1192  Console 44 Free. 09:01:13